home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / aeboards.lha / boards.e < prev    next >
Text File  |  1997-10-10  |  1KB  |  39 lines
  1. MODULE    'tools/boards',
  2.     'tools/boards_pragmas'
  3.  
  4. DEF    bi:PTR TO boardinfo,
  5.     cd,
  6.     boards
  7.  
  8. PROC main()
  9.     cd:=bi.configdev
  10.  
  11.     IF (boardsbase:=OpenLibrary('boards.library',0))=NIL
  12.         WriteF('Error opening boards.library..\n')
  13.         CleanUp(0)
  14.     ENDIF
  15.     IF (bi:=AllocBoardInfo(SB_EXPANSION_TYPE_DEC))=NIL
  16.         WriteF('Error allocating boardinfo..\n')
  17.         CloseLibrary(boardsbase)
  18.         CleanUp(0)
  19.     ENDIF
  20.  
  21.     WriteF('BoardsInfo v1.0 coded in AmigaE by Dr. Ice/LSC^OPS\n\n')
  22.     WriteF('The following boards is installed on your computer..\n\n')
  23.     WriteF('Nr. Manufacturer             Product               ID\as\n')
  24.  
  25.     WHILE (cd:=NextBoardInfo(bi,cd))<>NIL
  26.         INC boards
  27.         GetBoardName(bi.manuname,bi.prodname,cd,bi.manuid,bi.prodid)
  28.         WriteF('\r\z\d[2]  \l\s[20]     \s[20]  \r\z$\h[5]  \r\z$\h[5]\n',boards,bi.manuname,bi.prodname,Val(bi.manuid),Val(bi.prodid))
  29.         IF CtrlC()=TRUE
  30.             FreeBoardInfo(bi)
  31.             CloseLibrary(boardsbase)
  32.             CleanUp(0)
  33.         ENDIF
  34.         
  35.     ENDWHILE
  36.     FreeBoardInfo(bi)
  37.     CloseLibrary(boardsbase)
  38. ENDPROC
  39.